' This script executes the "Molten Lead" action which is in the
' Photoshop actions palette. If using a non-English version of Photoshop, you
' may have to change the name of the action to match an appropriate action
' in your actions palette.

Private Sub Command1_Click()

Dim appRef As Photoshop.Application
Set appRef = CreateObject("Photoshop.Application")

If (appRef.Documents.Count > 0) Then

    ' Execute an action from the action's palette
    appRef.DoAction "Molten Lead", "Default Actions.atn"
        
End If

End Sub
